home *** CD-ROM | disk | FTP | other *** search
- /bdef {bind readonly def} bind readonly def /start { { clear cleardictstack $error /newerror false put serverdict begin /exited false def /quitflag false def /filesource false def end false setpacking { serverdict /serverstate save put { statusdict begin 256 string usersource userdevice setdevice setsource opendocument defaulttimeouts /waittimeout exch def /manualfeedtimeout exch def setjobtimeout true enableinterrupts end serverdict /consolesource get {executive} {(%stdin) run} ifelse serverdict begin artfile {showpage} if deletesource {sourcename deletefile} if end statusdict begin closedocument end } executeonly stopped {handleerror} if false statusdict /enableinterrupts get exec clear cleardictstack serverdict begin filesource {(%console) statusdict /setusersource get exec} if exited quitflag serverstate restore /quitflag exch def end {{(%stdin) run} stopped {handleerror} if} if (%stdin) (r) file closefile (%stdout) (w) file closefile (%stderr) (w) file closefile } executeonly stopped {handleerror} if serverdict /quitflag get {exit} if } executeonly loop } bind noaccess def /findfont { FontDirectory 1 index known not { dup statusdict /fontalias get exec FontDirectory 1 index known {exch pop} { 1 index statusdict /fontfile get exec {true} {dup statusdict /fontfile get exec} ifelse {currentpacking false setpacking exch cvx exec setpacking} if FontDirectory 2 index known {pop} { FontDirectory 1 index known {exch pop} { pop dup statusdict /macfont get exec dup /|______Courier eq {{} mark true /Courier /|______Courier 0 rf} if dup /|______Symbol eq {{} mark false /Symbol /|______Symbol 0 rf} if FontDirectory 1 index known not { dup /Courier eq {errordict /undefined get exec} if =print ( not found, using Courier\n) print flush /Courier findfont /FontName get } if } ifelse } ifelse } ifelse } if FontDirectory exch get } bdef /handleerror { $error /newerror get { $error begin mark ( ]%%\n) errorname /ioerror eq $error /ioerrorkind known and { ioerrorkind (; ) statusdict begin (%console) setusersource /Preview setuserdevice end } if /command load (; OffendingCommand: ) errorname (Error: ) (%%[ ) /newerror false def end counttomark (%stderr) (w) file exch {dup 3 -1 roll statusdict /asstring get exec writestring} repeat flushfile pop } if } bdef systemdict readonly pop userdict begin /cleardictstack {countdictstack 2 sub {end} repeat} bdef /#copies 1 def /quit /stop load def /Run {dup == flush run} bdef /note {lettersmall} def /11x17 {tabloid} def /executive { /quit {(%stdin) (r) file closefile stop} bdef statusdict begin 0 setjobtimeout /waittimeout 0 def end errordict /interrupt /quit load put { {(%stdin) run} stopped { $error /newerror get { $error /errorname get /VMerror eq {stop} if } if handleerror } if serverdict /quitflag get {quit} if serverdict /exited get {exit} if (%stdin) (r) file status not {exit} if (%stdin) (r) file resetfile } executeonly loop } bind executeonly def /=print {statusdict /asstring get exec print} readonly def /= {=print (\n) print} readonly def /==print {dup type ==dict exch get exec} bdef /== {==print (\n) print} readonly def /stack {0 1 count 3 sub {index =} for} bdef /pstack {0 1 count 3 sub {index ==} for} bdef /=string 128 string def /==dict 14 dict begin /arraytype {dup rcheck {dup xcheck {({)} {([)} ifelse print dup {==print ( ) print} forall xcheck {(})} {(])} ifelse print} {pop (-array-) print} ifelse} def /booleantype /=print load def /dicttype {pop (-dictionary-) print} def /filetype {pop (-filestream-) print} def /fonttype {pop (-fontid-) print} def /integertype /=print load def /marktype {pop (-mark-) print} def /nametype {dup xcheck not {(/) print} if =print} def /nulltype {pop (-null-) print} def /operatortype {(--) print =print (--) print} def /packedarraytype {dup rcheck {dup xcheck {({)} {([)} ifelse print dup {==print ( ) print} forall xcheck {(})} {(])} ifelse print} {pop (-packedarray-) print} ifelse} def /realtype /=print load def /savetype {pop (-savelevel-) print} def /stringtype {dup rcheck {<28> print print <29> print} {pop (-string-) print} ifelse} def currentdict end readonly def /.error { dup /dictstackoverflow eq {end} if $error begin /errorname exch def /command exch def /newerror true def /errorname load /VMerror ne { ostackarray null eq { /ostackarray 500 array def /estackarray 252 array def /dstackarray 20 array def } if count ostackarray exch 0 exch getinterval astore /ostack exch def /estack estackarray execstack 0 countexecstack 2 sub getinterval def /dstack dstackarray dictstack 0 countdictstack 1 sub getinterval def ostack aload pop } if /errorname load /stackoverflow eq {clear} if end stop } bdef errordict begin /handleerror /handleerror load def /dictfull {/dictfull .error} bdef /dictstackoverflow {/dictstackoverflow .error} bdef /dictstackunderflow {/dictstackunderflow .error} bdef /execstackoverflow {/execstackoverflow .error} bdef /interrupt /stop load def /invalidaccess {/invalidaccess .error} bdef /invalidexit {/invalidexit .error} bdef /invalidfileaccess {/invalidfileaccess .error} bdef /invalidfont {/invalidfont .error} bdef /invalidrestore {/invalidrestore .error} bdef /ioerror {/ioerror .error} bdef /limitcheck {/limitcheck .error} bdef /nocurrentpoint {/nocurrentpoint .error} bdef /rangecheck {/rangecheck .error} bdef /stackoverflow {/stackoverflow .error} bdef /stackunderflow {/stackunderflow .error} bdef /syntaxerror {/syntaxerror .error} bdef /timeout {/timeout .error} bdef /typecheck {/typecheck .error} bdef /undefined {/undefined .error} bdef /undefinedfilename {/undefinedfilename .error} bdef /undefinedresult {/undefinedresult .error} bdef /unmatchedmark {/unmatchedmark .error} bdef /unregistered {/unregistered .error} bdef /VMerror {/VMerror .error} bdef end $error begin /newerror false def /errorname null def /command null def /ostack null def /estack null def /dstack null def /ostackarray null def /estackarray null def /dstackarray null def end statusdict begin /devicename 16 string def devicename 0 46 put /jobstate (busy) def /asstring {dup type /stringtype ne {=string cvs} if} bdef /failed {stopped dup {$error /newerror false put} if} bdef /tryfile {dup status {4 {pop} repeat (r) file true} {pop false} ifelse} bdef /fontalias { statusdict /fontaliasdict known { statusdict begin fontaliasdict 1 index known {fontaliasdict exch get} if end } if } bdef /fontfile { =string 0 (fonts/) putinterval =string 6 122 getinterval cvs length 6 add =string exch 0 exch getinterval statusdict /tryfile get exec } bdef /deviceparams { devicematrix imagewidth 8 idiv imageheight /showproc load } bdef /installdevice { /devicematrix exch def nulldevice /renderproc {devicefile renderdeviceframe} def imagewidth imageheight mul cvr devicebits mul deviceplanes mul 8 div cvi 240000 add vmstatus exch pop exch pop lt {{deviceparams framedevice} failed} {true} ifelse {deviceparams banddevice /renderproc {{devicefile renderdeviceframe} renderbands} def} if erasepage } bdef /installcropdevice { /devicematrix exch def nulldevice deviceparams banddevice /renderproc {{devicefile renderdeviceframe} renderbands} def erasepage } bdef /setpage { pop dup 1191 gt userdict /tabloid known and {tabloid} if dup 1191 eq userdict /a3 known and {a3} if statusdict begin setdevicepage end } bdef /setpageparams { exch pop statusdict /setpage get exec } bdef /setsource { serverdict begin /deletesource exch def /artfile exch def /sourcename exch def /jobstate (idle) store /consolesource sourcename (%console) eq def /filesource sourcename 0 1 getinterval (%) ne sourcename 0 2 getinterval (%:) eq or def true enableinterrupts sourcename filesource {(%console)} {dup} ifelse exch (r) file exch (w) file dup setstdio /jobstate (busy) store false enableinterrupts end } bdef /setdevice { /currentdevice 1 index def devicename 1 15 getinterval cvs length 1 add devicename exch 0 exch getinterval (w) file /devicefile exch def devicebits deviceplanes devicepolarity setdevicetype false false false false setframetype 57600 57600 settilesize /opendocument {devicefile opendevicedocument} def /closedocument {devicefile closedevicedocument} def [/legal /tabloid /a3 /a4 /b5 /lettersmall /a4small] {userdict exch {letter} put} forall {devicedict currentdevice get exec} stopped {/Preview setuserdevice stop} if pagetype 1 eq {note} {letter} ifelse userdict /md known { md begin currentscreen /spf xdf /rot xdf /freq xdf systemdict /currentcolorscreen known { currentcolorscreen /dkspf xdf /dkrot xdf /dkfreq xdf /dyspf xdf /dyrot xdf /dyfreq xdf /dmspf xdf /dmrot xdf /dmfreq xdf /dcspf xdf /dcrot xdf /dcfreq xdf } if end } if } bdef /ignorefonts { /definefont {pop pop statusdict /dummyfont get} def /findfont {pop statusdict /dummyfont get} def exec /definefont systemdict /definefont get def /findfont statusdict /findfont get def } bdef /dummyfont 7 dict begin /FontMatrix [.001 0 0 .001 0 0] readonly def /FontType 1 def /FontBBox {0 0 1000 1000} readonly def /Encoding StandardEncoding def /UniqueID 0 def /CharStrings 1 dict def CharStrings /space () put currentdict end def /findfont /findfont load def /manualfeed false def /pagecount 0 def /dostartpage false def /setrealdevice null def /execjob null def /macdecoding 217 dict begin 32 1 126 {StandardEncoding 1 index get exch def} bind for /quotesingle 39 def /minus 208 def /grave 96 def /Adieresis 128 def /Aring 129 def /Ccedilla 130 def /Eacute 131 def /Ntilde 132 def /Odieresis 133 def /Udieresis 134 def /aacute 135 def /agrave 136 def /acircumflex 137 def /adieresis 138 def /atilde 139 def /aring 140 def /ccedilla 141 def /eacute 142 def /egrave 143 def /ecircumflex 144 def /edieresis 145 def /iacute 146 def /igrave 147 def /icircumflex 148 def /idieresis 149 def /ntilde 150 def /oacute 151 def /ograve 152 def /ocircumflex 153 def /odieresis 154 def /otilde 155 def /uacute 156 def /ugrave 157 def /ucircumflex 158 def /udieresis 159 def /dagger 160 def /degree 161 def /cent 162 def /sterling 163 def /section 164 def /bullet 165 def /paragraph 166 def /germandbls 167 def /registered 168 def /copyright 169 def /trademark 170 def /acute 171 def /dieresis 172 def /AE 174 def /Oslash 175 def /plusminus 177 def /yen 180 def /mu 181 def /ordfeminine 187 def /ordmasculine 188 def /ae 190 def /oslash 191 def /questiondown 192 def /exclamdown 193 def /logicalnot 194 def /florin 196 def /guillemotleft 199 def /guillemotright 200 def /ellipsis 201 def /blank 202 def /Agrave 203 def /Atilde 204 def /Otilde 205 def /OE 206 def /oe 207 def /endash 208 def /emdash 209 def /quotedblleft 210 def /quotedblright 211 def /quoteleft 212 def /quoteright 213 def /quotesinglleft 212 def /quotesinglright 213 def /divide 214 def /ydieresis 216 def /Ydieresis 217 def /fraction 218 def /currency 219 def /guilsinglleft 220 def /guilsinglright 221 def /fi 222 def /fl 223 def /daggerdbl 224 def /periodcentered 225 def /quotesinglbase 226 def /quotedblbase 227 def /perthousand 228 def /Acircumflex 229 def /Ecircumflex 230 def /Aacute 231 def /Edieresis 232 def /Egrave 233 def /Iacute 234 def /Icircumflex 235 def /Idieresis 236 def /Igrave 237 def /Oacute 238 def /Ocircumflex 239 def /Ograve 241 def /Uacute 242 def /Ucircumflex 243 def /Ugrave 244 def /dotlessi 245 def /circumflex 246 def /tilde 247 def /macron 248 def /breve 249 def /dotaccent 250 def /ring 251 def /cedilla 252 def /hungarumlaut 253 def /ogonek 254 def /caron 255 def currentdict end def /buildmacchar { exch begin statusdict begin Encoding 1 index get macdecoding 1 index known {macdecoding exch get exch pop} {pop} ifelse MacID MacFace 3 -1 roll maccharmask end end } bdef /macfont { statusdict /matchmacfont get exec { 9 dict begin /FontMatrix [.001 0 0 .001 0 0] readonly def /FontType 3 def /FontBBox [-250 -400 1400 1100] readonly cvx def /Encoding StandardEncoding def /BuildChar statusdict /buildmacchar get def /MacFace exch def /MacID exch def /FontName 1 index def currentdict end definefont pop } if } bdef serverdict begin /exitserver { checkpassword not {/exitserver /PasswordIncorrect .error} if (%%[ exitserver: permanent state may be changed ]%%\n) print flush serverdict /exited true put stop } bind executeonly def end /deviceresolutionx {0 devicefile deviceparam} bdef /deviceresolutiony {1 devicefile deviceparam} bdef /devicescalex {deviceresolutionx 72 div} bdef /devicescaley {deviceresolutiony 72 div} bdef /devicepaperwidth {2 devicefile deviceparam} bdef /devicepaperheight {3 devicefile deviceparam} bdef /devicebits {4 devicefile deviceparam} bdef /deviceplanes {5 devicefile deviceparam} bdef /devicepolarity {6 devicefile deviceparam} bdef /setdevicepapersize {devicescaley mul cvi 3 devicefile setdeviceparam devicescalex mul cvi 2 devicefile setdeviceparam} bdef /setdevicepaper {7 devicefile setdeviceparam} bdef /setdevicemanualfeed {8 devicefile setdeviceparam} bdef /devicedict 17 dict def /fontaliasdict 43 dict begin /Times-Roman /TTS-Oxford-Roman def /Times-Italic /TTS-Oxford-Italic def /Times-Bold /TTS-Oxford-Bold def /Times-BoldItalic /TTS-Oxford-BoldItalic def /Helvetica /TTS-Lucerne def /Helvetica-Oblique /TTS-Lucerne-Oblique def /Helvetica-Bold /TTS-Lucerne-Bold def /Helvetica-BoldOblique /TTS-Lucerne-BoldOblique def /Courier /TTS-Courier def /Courier-Oblique /TTS-Courier-Oblique def /Courier-Bold /TTS-Courier-Bold def /Courier-BoldOblique /TTS-Courier-BoldOblique def /Symbol /TTS-Symbol def /Helvetica-Narrow /TTS-Lucerne-Narrow def /Helvetica-Narrow-Oblique /TTS-Lucerne-Narrow-Oblique def /Helvetica-Narrow-Bold /TTS-Lucerne-Narrow-Bold def /Helvetica-Narrow-BoldOblique /TTS-Lucerne-Narrow-BoldOblique def /ZapfDingbats /TTS-Dingbats def currentdict end def end statusdict /initdevices get exec 63 statusdict /eescratch get exec 32 and 0 ne { gsave statusdict begin {userdevice setdevice} stopped {/Preview setuserdevice userdevice setdevice} if end (Laser Prep) statusdict /tryfile get exec {cvx statusdict /ignorefonts get exec clear} if statusdict begin devicefile closefile end grestore } bind if (:Private:Setup) statusdict /tryfile get exec {cvx exec} if
